home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / CASEDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  511 b   |  20 lines
  1. PROGRAM demonstrate_case;
  2.  
  3. VAR count : INTEGER;
  4.  
  5. BEGIN  (* main program *)
  6. FOR count := 0 TO 8 DO
  7. BEGIN
  8.   WRITE(count:5);
  9.     CASE count OF
  10.     1 : WRITE(' One');    (* Note that these do not have to *)
  11.     2 : WRITE(' Two');    (* be in consecutive order *)
  12.     3 : WRITE(' Three');
  13.     4 : WRITE(' Four');
  14.     5 : WRITE(' Five');
  15.     ELSE WRITE(' This number is not in the allowable list');
  16.     END; (* of CASE structure *)
  17.   WRITELN;
  18. END;  (* of count loop *)
  19. END.  (* of main program *)
  20.